(resize-temp-buffer-window): Use window-full-width-p
authorMartin Rudalics <rudalics@gmx.at>
Mon, 6 Aug 2007 06:49:49 +0000 (06:49 +0000)
committerMartin Rudalics <rudalics@gmx.at>
Mon, 6 Aug 2007 06:49:49 +0000 (06:49 +0000)
instead of comparing frame-width and window-width.

lisp/help.el

index f75e26f93e6d26640dc55aaf3480ad58dd8fbfa9..4a94fd35bc7b870c79feb5386dd831cdafc4ace8 100644 (file)
@@ -958,14 +958,14 @@ This applies to `help', `apropos' and `completion' buffers, and some others."
     (remove-hook 'temp-buffer-show-hook 'resize-temp-buffer-window)))
 
 (defun resize-temp-buffer-window ()
-  "Resize the current window to fit its contents.
+  "Resize the selected window to fit its contents.
 Will not make it higher than `temp-buffer-max-height' nor smaller than
 `window-min-height'.  Do nothing if it is the only window on its frame, if it
 is not as wide as the frame or if some of the window's contents are scrolled
 out of view."
   (unless (or (one-window-p 'nomini)
               (not (pos-visible-in-window-p (point-min)))
-              (/=  (frame-width) (window-width)))
+              (not (window-full-width-p)))
     (fit-window-to-buffer
      (selected-window)
      (if (functionp temp-buffer-max-height)